Raising the Bar Graph

Interactive Data visualization Example

Quick and easy visalization: Using the plotly package

p <- ggplot(mtcars, aes(wt, mpg)) +
  geom_point(aes(colour = factor(cyl)))

ggplotly(p)

Tips and bills

Dynamic Data visualization Example

Examples from Michael Clark

Interactive-Dynamic Data visualization Example

mtcars$am[which(mtcars$am == 0)] <- 'Automatic'
mtcars$am[which(mtcars$am == 1)] <- 'Manual'
mtcars$am <- as.factor(mtcars$am)

fig <- plot_ly(mtcars, x = ~wt, y = ~hp, z = ~qsec, color = ~am)

fig
LS0tCnRpdGxlOiAiUmFpc2luZyB0aGUgQmFyIEdyYXBoIgphdXRob3I6ICJVZGkgQWx0ZXIgJiBNaWNoYWVsIEZyaWVuZGx5IgpkYXRlOiAiYHIgU3lzLkRhdGUoKWAiCm91dHB1dDoKICBybWRmb3JtYXRzOjpyb2JvYm9vazoKICAgIHNlbGZfY29udGFpbmVkOiB0cnVlCiAgICB0aHVtYm5haWxzOiB0cnVlCiAgICBsaWdodGJveDogdHJ1ZQogICAgZ2FsbGVyeTogZmFsc2UKICAgIGNvZGVfZG93bmxvYWQ6IHllcwogICAgaGlnaGxpZ2h0OiB0YW5nbwotLS0KCgpgYGB7ciBzZXR1cCwgZWNobz1GQUxTRSwgY2FjaGU9RkFMU0UsIG1lc3NhZ2U9RkFMU0V9CiNpbnN0YWxsLnBhY2thZ2VzKCJybWRmb3JtYXRzIikKbGlicmFyeShybWRmb3JtYXRzKQpsaWJyYXJ5KGtuaXRyKQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShwbG90bHkpCmxpYnJhcnkocmVhZHhsKQpsaWJyYXJ5KHBsb3RseSkKbGlicmFyeShNZXRCcmV3ZXIpCmxpYnJhcnkoZ2dhbmltYXRlKQoKIyMgR2xvYmFsIG9wdGlvbnMKb3B0aW9ucyhtYXgucHJpbnQ9Ijc1IikKb3B0c19jaHVuayRzZXQoZWNobz1UUlVFLAoJICAgICAgICAgICAgIGNhY2hlPVRSVUUsCiAgICAgICAgICAgICAgIHByb21wdD1GQUxTRSwKICAgICAgICAgICAgICAgY29tbWVudD1OQSwKICAgICAgICAgICAgICAgbWVzc2FnZT1GQUxTRSwKICAgICAgICAgICAgICAgd2FybmluZz1GQUxTRSkKb3B0c19rbml0JHNldCh3aWR0aD03NSkKYGBgCgoKCiMgSW50ZXJhY3RpdmUgRGF0YSB2aXN1YWxpemF0aW9uIEV4YW1wbGUKCiMjICBRdWljayBhbmQgZWFzeSB2aXNhbGl6YXRpb246IFVzaW5nIHRoZSBgcGxvdGx5YCBwYWNrYWdlCgpgYGB7cn0KcCA8LSBnZ3Bsb3QobXRjYXJzLCBhZXMod3QsIG1wZykpICsKICBnZW9tX3BvaW50KGFlcyhjb2xvdXIgPSBmYWN0b3IoY3lsKSkpCgpnZ3Bsb3RseShwKQogIAoKCmBgYAoKCgojIyBUaXBzIGFuZCBiaWxscwoKCmBgYHtyIGVjaG89Rn0KbGlicmFyeShyZXNoYXBlMikKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkodGlkeW1vZGVscykKbGlicmFyeShwbG90bHkpCmRhdGEodGlwcykKCnkgPC0gdGlwcyR0aXAKWCA8LSB0aXBzJHRvdGFsX2JpbGwKCnNldC5zZWVkKDMxMSkKdGlwc19zcGxpdCA8LSBpbml0aWFsX3NwbGl0KHRpcHMpCnRpcHNfdHJhaW5pbmcgPC0gdGlwc19zcGxpdCAlPiUgCiAgdHJhaW5pbmcoKQp0aXBzX3Rlc3QgPC0gdGlwc19zcGxpdCAlPiUgCiAgdGVzdGluZygpCgpsbV9tb2RlbCA8LSBsaW5lYXJfcmVnKCkgJT4lIAogIHNldF9lbmdpbmUoJ2xtJykgJT4lIAogIHNldF9tb2RlKCdyZWdyZXNzaW9uJykgJT4lCiAgZml0KHRpcCB+IHRvdGFsX2JpbGwsIGRhdGEgPSB0aXBzX3RyYWluaW5nKSAKCnhfcmFuZ2UgPC0gc2VxKG1pbihYKSwgbWF4KFgpLCBsZW5ndGgub3V0ID0gMTAwKQp4X3JhbmdlIDwtIG1hdHJpeCh4X3JhbmdlLCBucm93PTEwMCwgbmNvbD0xKQp4ZGYgPC0gZGF0YS5mcmFtZSh4X3JhbmdlKQpjb2xuYW1lcyh4ZGYpIDwtIGMoJ3RvdGFsX2JpbGwnKQoKeWRmIDwtIGxtX21vZGVsICU+JQogIHByZWRpY3QoeGRmKSAKCmNvbG5hbWVzKHlkZikgPC0gYygndGlwJykKeHkgPC0gZGF0YS5mcmFtZSh4ZGYsIHlkZikgCgpmaWcgPC0gcGxvdF9seShkYXRhID0gdGlwc190cmFpbmluZywgeCA9IH50b3RhbF9iaWxsLCB5ID0gfnRpcCwgdHlwZSA9ICdzY2F0dGVyJywgbmFtZSA9ICd0cmFpbicsIG1vZGUgPSAnbWFya2VycycsIGFscGhhID0gMC42NSwKICAgICAgICAgICAgICAgaG92ZXJ0ZW1wbGF0ZSA9IHBhc3RlKCc8Yj5UaXAgaW4gZG9sbGFyczwvYj46ICQle3g6LjJmfScsCiAgICAgICAgICAgICAgICAgICAgICAgICc8YnI+PGI+QmlsbCBpbiBkb2xsYXJzOiA8L2I+JCV7eX08YnI+JykpICU+JSAKICAKICBhZGRfdHJhY2UoZGF0YSA9IHRpcHNfdGVzdCwgeCA9IH50b3RhbF9iaWxsLCB5ID0gfnRpcCwgdHlwZSA9ICdzY2F0dGVyJywgbmFtZSA9ICd0ZXN0JywgbW9kZSA9ICdtYXJrZXJzJywgYWxwaGEgPSAwLjY1LCBob3ZlcnRlbXBsYXRlID0gcGFzdGUoJzxiPlRpcCBpbiBkb2xsYXJzPC9iPjogJCV7eDouMmZ9JywKICAgICAgICAgICAgICAgICAgICAgICAgJzxicj48Yj5CaWxsIGluIGRvbGxhcnM6IDwvYj4kJXt5fTxicj4nKSkgJT4lIAogIGFkZF90cmFjZShkYXRhID0geHksIHggPSB+dG90YWxfYmlsbCwgeSA9IH50aXAsIG5hbWUgPSAncHJlZGljdGlvbicsIG1vZGUgPSAnbGluZXMnLCBhbHBoYSA9IDEsaG92ZXJ0ZW1wbGF0ZSA9IHBhc3RlKCc8Yj5UaXAgaW4gZG9sbGFyczwvYj46ICQle3g6LjJmfScsCiAgICAgICAgICAgICAgICAgICAgICAgICc8YnI+PGI+QmlsbCBpbiBkb2xsYXJzOiA8L2I+JCV7eX08YnI+JykpCmZpZyAKCmBgYAoKCgoKCgoKCgojIER5bmFtaWMgRGF0YSB2aXN1YWxpemF0aW9uIEV4YW1wbGUKCiFbXSgvVXNlcnMvdWRpYWx0ZXIvTGlicmFyeS9DbG91ZFN0b3JhZ2UvR29vZ2xlRHJpdmUtdWRpLmFsdGVyQGdtYWlsLmNvbS9NeSBEcml2ZS9Db3Vyc2UgTWF0ZXJpYWxzIGFuZCBSZXNvdXJjZXMvNjE2MCBNTE0gKGZhbGwgMjAyMikvZ3JvdXAtbWVhbiBjZW50cmUgZGVtbyBnZ2FuaW1hdGUvY2VudGVyaW5nTUxNLmdpZil7d2lkdGg9OTAlfQoKCiAqKltFeGFtcGxlcyBmcm9tIE1pY2hhZWwgQ2xhcmtdKGh0dHBzOi8vbS1jbGFyay5naXRodWIuaW8vcG9zdHMvMjAxOS0wNS0xNC1zaHJpbmthZ2UtaW4tbWl4ZWQtbW9kZWxzLyM6fjp0ZXh0PTAuNTQ0MDUlMjAlMjAlMjAlMjAwLjA0MjcwJTIwJTIwJTIwMTIuNzQtLFZpc3VhbGl6ZSUyMHRoZSUyMGJhc2VsaW5lJTIwbW9kZWwsLU5vdyUyMGl0JTIwaXMpKiogCgoKIyBJbnRlcmFjdGl2ZS1EeW5hbWljIERhdGEgdmlzdWFsaXphdGlvbiBFeGFtcGxlCgoKYGBge3IgcmVzdWx0cz0naGlkZSd9Cm10Y2FycyRhbVt3aGljaChtdGNhcnMkYW0gPT0gMCldIDwtICdBdXRvbWF0aWMnCm10Y2FycyRhbVt3aGljaChtdGNhcnMkYW0gPT0gMSldIDwtICdNYW51YWwnCm10Y2FycyRhbSA8LSBhcy5mYWN0b3IobXRjYXJzJGFtKQoKZmlnIDwtIHBsb3RfbHkobXRjYXJzLCB4ID0gfnd0LCB5ID0gfmhwLCB6ID0gfnFzZWMsIGNvbG9yID0gfmFtKQoKZmlnCgoKYGBgCgpgYGB7ciBlY2hvPUZ9CiMgTUlOSSBQUkVTRU5UQVRJT046IERFTU9OU1RSQVRJT04gCm10Y2FycyRhbVt3aGljaChtdGNhcnMkYW0gPT0gMCldIDwtICdBdXRvbWF0aWMnCm10Y2FycyRhbVt3aGljaChtdGNhcnMkYW0gPT0gMSldIDwtICdNYW51YWwnCm10Y2FycyRhbSA8LSBhcy5mYWN0b3IobXRjYXJzJGFtKQoKCmZpZyA8LSBwbG90X2x5KG10Y2FycywgeCA9IH53dCwgeSA9IH5ocCwgeiA9IH5xc2VjLCBjb2xvciA9IH5hbSwgCiAgICAgICAgICAgICAgIGNvbG9ycyA9IGMoJyNCRjM4MkEnLCAnIzBDNEI4RScpKQpmaWcgPC0gZmlnICU+JSBhZGRfbWFya2Vycyhob3ZlcnRlbXBsYXRlID0gcGFzdGUoJzxiPndlaWdodDwvYj46ICV7eDouMmZ9JywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICc8YnI+PGI+aG9yc2UgcG93ZXI8L2I+OiAle3l9PGJyPicsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAnPGI+MS80bWlsZS9nPC9iPjogJXt6fTxicj4nKSkKZmlnIDwtIGZpZyAlPiUgbGF5b3V0KHNjZW5lID0gbGlzdCh4YXhpcyA9IGxpc3QodGl0bGUgPSAnV2VpZ2h0JyksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeWF4aXMgPSBsaXN0KHRpdGxlID0gJ0dyb3NzIGhvcnNlcG93ZXInKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB6YXhpcyA9IGxpc3QodGl0bGUgPSAnMS80IG1pbGUgdGltZScpKSkKZmlnCgoKCmBgYApgYGB7ciBlY2hvPUZ9CmxpYnJhcnkocmVzaGFwZTIpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHRpZHltb2RlbHMpCmxpYnJhcnkocGxvdGx5KQpsaWJyYXJ5KGtlcm5sYWIpCmxpYnJhcnkocHJhY21hKSAjRm9yIG1lc2hncmlkKCkKCgpsbTEgPC0gbG0obXBnIH4gaHAgKyBkaXNwLCBkYXRhID0gbXRjYXJzKQoKaHBfZGlzcF9ncmlkIDwtIGV4cGFuZF9ncmlkKGhwID0gc2VxKDUwLCA1MDAsIGJ5ID0gMTApLCBkaXNwID0gc2VxKDUwLCA1MDAsIGJ5ID0gMTApKQpncmlkMiA8LSAKICBocF9kaXNwX2dyaWQgJT4lIAogIG11dGF0ZShtcGdfcHJlZF9sbTEgPSBwcmVkaWN0KGxtMSwgbmV3ZGF0YSA9IGRhdGEuZnJhbWUoaHAsIGRpc3ApKSkKCmdyaWRfd2lkZSA8LSAKICBncmlkMiAlPiUgCiAgcGl2b3Rfd2lkZXIobmFtZXNfZnJvbSA9IGRpc3AsIHZhbHVlc19mcm9tID0gbXBnX3ByZWRfbG0xKSAlPiUgCiAgc2VsZWN0KC0xKSAlPiUgICMga2ljayB0aGUgbmFtZSdzIGNvbHVtbiBvdXQKICBhcy5tYXRyaXgoKQoKCnAxIDwtIHBsb3RfbHkobXRjYXJzLAogICAgICAgIHggPSB+IGhwLAogICAgICAgIHkgPSB+IGRpc3AsCiAgICAgICAgeiA9IH4gbXBnLAogICAgICAgIHR5cGUgPSAic2NhdHRlcjNkIikKCnAyIDwtIGFkZF90cmFjZShwID0gcDEsCiAgICAgICAgICAgICAgICB6ID0gZ3JpZF93aWRlLAogICAgICAgICAgICAgICAgeCA9IHNlcSg1MCwgMzAwLCBieSA9IDEwKSwKICAgICAgICAgICAgICAgIHkgPSBzZXEoNTAsIDUwMCwgYnkgPSAxMCksCiAgICAgICAgICAgICAgICB0eXBlID0gInN1cmZhY2UiKQpwMgoKCgoKCgpkYXRhKGlyaXMpCgoKCgoKCgoKbWVzaF9zaXplIDwtIC4wMgptYXJnaW4gPC0gMApYIDwtIGlyaXMgJT4lIHNlbGVjdChTZXBhbC5XaWR0aCwgU2VwYWwuTGVuZ3RoKQp5IDwtIGlyaXMgJT4lIHNlbGVjdChQZXRhbC5XaWR0aCkKCm1vZGVsIDwtIHN2bV9yYmYoY29zdCA9IDEuMCkgJT4lIAogIHNldF9lbmdpbmUoImtlcm5sYWIiKSAlPiUgCiAgc2V0X21vZGUoInJlZ3Jlc3Npb24iKSAlPiUgCiAgZml0KFBldGFsLldpZHRoIH4gU2VwYWwuV2lkdGggKyBTZXBhbC5MZW5ndGgsIGRhdGEgPSBpcmlzKQoKeF9taW4gPC0gbWluKFgkU2VwYWwuV2lkdGgpIC0gbWFyZ2luCnhfbWF4IDwtIG1heChYJFNlcGFsLldpZHRoKSAtIG1hcmdpbgp5X21pbiA8LSBtaW4oWCRTZXBhbC5MZW5ndGgpIC0gbWFyZ2luCnlfbWF4IDwtIG1heChYJFNlcGFsLkxlbmd0aCkgLSBtYXJnaW4KeHJhbmdlIDwtIHNlcSh4X21pbiwgeF9tYXgsIG1lc2hfc2l6ZSkKeXJhbmdlIDwtIHNlcSh5X21pbiwgeV9tYXgsIG1lc2hfc2l6ZSkKeHkgPC0gbWVzaGdyaWQoeCA9IHhyYW5nZSwgeSA9IHlyYW5nZSkKeHggPC0geHkkWAp5eSA8LSB4eSRZCmRpbV92YWwgPC0gZGltKHh4KQp4eDEgPC0gbWF0cml4KHh4LCBsZW5ndGgoeHgpLCAxKQp5eTEgPC0gbWF0cml4KHl5LCBsZW5ndGgoeXkpLCAxKQpmaW5hbCA8LSBjYmluZCh4eDEsIHl5MSkKcHJlZCA8LSBtb2RlbCAlPiUKICBwcmVkaWN0KGZpbmFsKQoKcHJlZCA8LSBwcmVkJC5wcmVkCnByZWQgPC0gbWF0cml4KHByZWQsIGRpbV92YWxbMV0sIGRpbV92YWxbMl0pCgpmaWcgPC0gcGxvdF9seShpcmlzLCB4ID0gflNlcGFsLldpZHRoLCB5ID0gflNlcGFsLkxlbmd0aCwgeiA9IH5QZXRhbC5XaWR0aCApICU+JSAKICBhZGRfbWFya2VycyhzaXplID0gNSkgJT4lIAogIGFkZF9zdXJmYWNlKHg9eHJhbmdlLCB5PXlyYW5nZSwgej1wcmVkLCBhbHBoYSA9IDAuNjUsIHR5cGUgPSAnbWVzaDNkJywgbmFtZSA9ICdwcmVkX3N1cmZhY2UnKQpmaWcKICAKCgoKCgoKYGBg